home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_11673.txt < prev    next >
Text File  |  1989-06-13  |  4KB  |  188 lines
  1. -- card: 11673 from stack: in
  2. -- bmap block id: 26343
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=329 top=140 right=162 bottom=429
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: SELFED
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   delete line 1 of card field F1
  23.   delete line 1 of card field F2
  24.   repeat 32 times
  25.     put random of 16 into it
  26.     if it <=4 then add 1 to card field F2
  27.     else add 1 to card field F1
  28.   end repeat
  29.   add the value of card field F1 to card field F3
  30.   add the value of card field F2 to card field F4
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 2 (field)
  36. -- low flags: 00
  37. -- high flags: 0002
  38. -- rect: left=348 top=194 right=214 bottom=399
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: F1
  47.  
  48.  
  49. -- part 3 (field)
  50. -- low flags: 00
  51. -- high flags: 0002
  52. -- rect: left=348 top=219 right=239 bottom=399
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 0
  56. -- font id: 3
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: F2
  61.  
  62.  
  63. -- part 4 (field)
  64. -- low flags: 00
  65. -- high flags: 0002
  66. -- rect: left=348 top=266 right=286 bottom=399
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 3
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: F3
  75.  
  76.  
  77. -- part 5 (field)
  78. -- low flags: 00
  79. -- high flags: 0002
  80. -- rect: left=348 top=293 right=313 bottom=399
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: F4
  89.  
  90.  
  91. -- part 6 (button)
  92. -- low flags: 00
  93. -- high flags: 8003
  94. -- rect: left=338 top=27 right=47 bottom=409
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: RESET
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   put 0 into card field F1
  106.   put 0 into card field F2
  107.   put 0 into card field F3
  108.   put 0 into card field F4
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 7 (button)
  114. -- low flags: 00
  115. -- high flags: 8003
  116. -- rect: left=323 top=316 right=338 bottom=423
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: CHI SQUARE
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   global bagone
  128.   global bagtwo
  129.   put the value of card field F3 into "bagone"
  130.   put the value of card field F4 into "bagtwo"
  131.   go to card id 25732
  132.   put 0 into card field class1
  133.   put 0 into card field class2
  134.   put 0 into card field class3
  135.   put 0 into card field class4
  136.   put 0 into card field F5
  137.   put 0 into card field F6
  138.   put 0 into card field F7
  139.   put 0 into card field F8
  140.   put bagone into card field "CLASS1"
  141.   put bagtwo into card field "CLASS2"
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 8 (button)
  147. -- low flags: 00
  148. -- high flags: 8003
  149. -- rect: left=171 top=315 right=337 bottom=271
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: SUB HEADINGS
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   go to card id 9665
  161. end mouseUp
  162.  
  163.  
  164.  
  165.  
  166. -- part contents for background part 1
  167. ----- text -----
  168. MONOHYDRID CROSS
  169.  
  170. -- part contents for background part 2
  171. ----- text -----
  172. The final cross of this group involves the nature of pea seed coats. If you cross true breeding plants with smooth (wild) skins with those that breed true for wrinkled skin, the F1 are all smooth. Selfing the F1 produces an F2 in which the coats are divided between smooth and wrinkled. Run the program several times until you are sure of your data. Then test it with the Chi Square program. Remember, RESET clears all the windows. SELFED when repeatedly activated clears only the windows of the immediate cross.
  173.  
  174. -- part contents for card part 2
  175. ----- text -----
  176. 24
  177.  
  178. -- part contents for card part 3
  179. ----- text -----
  180. 8
  181.  
  182. -- part contents for card part 4
  183. ----- text -----
  184. 24
  185.  
  186. -- part contents for card part 5
  187. ----- text -----
  188. 8